% V20210224 - 9.3.1 GW_FLIPSWITCH_CHANGED INCLUDE "GW.bas" % Create page. p = GW_NEW_PAGE() % Prepare title bar string. Title$ = GW_ADD_BAR_TITLE$("Flipswitch Example") % Add title to page. GW_ADD_TITLEBAR(p,Title$) % Add descriptive text. GW_ADD_TEXT(p, "This is an example of the FLIPSWITCH control:") % Add first flipswitch. switch1 = GW_ADD_FLIPSWITCH(p, "First switch:", "On","Off") % Add second flipswitch. switch2 = GW_ADD_FLIPSWITCH(p, "Second switch:", "Yes",">No") % Add a textbox for feedback. TB = GW_ADD_TEXTBOX(p, "") % Show the page. GW_RENDER(p) % Loop DO % Wait for user action. r$ = GW_WAIT_ACTION$() t$="" GW_MODIFY(TB, "text", t$) IF IS_IN("flipswitch", r$)=1 THEN ~ t$+= r$ IF GW_FLIPSWITCH_CHANGED(switch1, "On") THEN ~ t$ += "\nSwitch 1 was turned on." IF GW_FLIPSWITCH_CHANGED(switch1, "Off") THEN ~ t$ += "\nSwitch 1 was turned off." IF GW_FLIPSWITCH_CHANGED(switch2, "Yes") THEN ~ t$ += "\nSwitch 2 = Yes." IF GW_FLIPSWITCH_CHANGED(switch2, "No") THEN ~ t$ += "\nSwitch 2 = No." GW_MODIFY(TB, "text", t$) % End when BACK key is pressed. UNTIL r$="BACK" END "End of Flipswitch example."